Fix auth source lookups from erc with port numbers

* lisp/erc/erc.el (erc-open): `auth-source' wants strings, not port
numbers (bug#20541).

Copyright-paperwork-exempt: yes

diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 70e37348b6a9055982be18b92629de9cbc8f16e4..04e99c7b88422773fb02f06a3bf2df1f42c842c5 100644 (file)
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -2025,7 +2025,8 @@ Returns the buffer for the given server or channel."
                            (auth-source-search :host server
                                                :max 1
                                                :user nick
-                                               :port port
+                                               ;; secrets.el wouldn’t accept a number
+                                               :port (if (numberp port) (number-to-string port) port)
                                                :require '(:secret)))
                       :secret)))
                 (if (functionp secret)